home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 16 / 64er_Magazin_Sonderheft_16_19xx_Markt__Technik_de_Side_A.d64 / sinus-plot l1 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  951b  |  34 lines
  1. 10 rem sinus-plot programm
  2. 20 v=53248 : rem startadresse des graphik-prozessors
  3. 30 ad=8192 : rem startadresse der hi-res bitmap
  4. 40 pokev+17,59 : rem einschalten der graphik
  5. 50 pokev+24,24 : rem einschalten der graphik
  6. 60 for i=1024 to 2023
  7. 70 : poke i,16 : rem farbkennzahl
  8. 80 next i
  9. 90 for i=8192 to 16383 : rem loeschen der hi-res bitmap
  10. 100 : poke i,0
  11. 110 next i
  12. 120 for x=0 to 319 : rem zeichnen der x-achse
  13. 130 : y=100 : rem position der x-achse
  14. 140 : gosub 1000 : rem aufruf der zeichenroutine
  15. 150 next x
  16. 160 for y=0 to 199 : rem zeichnen der y-achse
  17. 170 : x=160 : rem position der y-achse
  18. 180 : gosub 1000 : rem aufruf der zeichen-routine
  19. 190 next y
  20. 200 x=0
  21. 210 for i=-3.141593 to 3.141593 step 0.019635
  22. 220 : rem intervallgrenzen
  23. 230 : y=100+99*sin(i) : rem funktion
  24. 240 : gosub 1000
  25. 250 : x=x+1
  26. 260 next i
  27. 270 goto 270 : rem damit der bildschirm nicht veraendert wird
  28. 1000 oy=320*int(y/8)+(y and 7) : rem berechnrn des punktes
  29. 1010 ox=8*int(x/8)
  30. 1020 ma=2^((7-x) and 7)
  31. 1030 av=ad+oy+ox
  32. 1040 poke av,peek(av) or ma : rem plotten des punktes
  33. 1050 return
  34.